home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / db2ios.arc / SHIP.INV < prev    next >
Encoding:
Text File  |  1983-01-04  |  1.4 KB  |  47 lines
  1. * ship.inv 08/21/83
  2. * inventory shipping report
  3. GOTO TOP
  4. STORE 0 TO pageno
  5. STORE 0 TO col2
  6. STORE 0 TO col4
  7. STORE 0 TO col5
  8. STORE T to MORE
  9. SET MARGIN TO 5
  10. DO WHILE more
  11. STORE pageno + 1 TO pageno
  12. STORE 7 TO lineno
  13. ERASE
  14. EJECT
  15. ? ' '
  16. ? '========================= SIG/M DISK ORDERS ========================'
  17. ? ' '
  18. ? '           ' + date() + '                       PAGE: ' + str(pageno,3)
  19. ? ' '
  20. ? 'VOLUME   INVENTORY ADJUSTED       NEW       NEW ORDERS       NEW ORDERS'
  21. ? 'NUMBER     FOR OLD ORDERS       ORDERS        SHIPPED        BACKORDERED'
  22. ? ' '
  23. DO WHILE lineno <55
  24. IF .NOT. EOF
  25. STORE open:inv+ship-back:ord-wait:ship+recvd TO col2
  26. STORE ship + COL4 TO COL4
  27. STORE backship + COL5 TO COL5
  28. ? ' '+ STR(disk,3,0) + '             ' + str(col2,3,0);
  29. + '            ' + STR(ship + backship,3,0) + '            ';
  30. + STR(ship,3,0) + '            ' + STR(backship,3,0)
  31. ELSE
  32. STORE f TO more
  33. ENDIF not .EOF.
  34. STORE lineno + 1 to lineno
  35. skip
  36. ENDDO while lineno > 55
  37. ENDDO more
  38. ? ' ----------------------------------------------------------------------------'
  39. ? ' '
  40. ? "      TOTAL NUMBER OF VOLUMES ORDERED WAS  " + STR(COL4 + COL5,3,0)
  41. ? "      TOTAL NUMBER OF VOLUMES SHIPPED WAS  " + STR(COL4,3,0)
  42. ? "  TOTAL NUMBER OF VOLUMES BACKORDERED WAS  " + STR(COL5,3,0)
  43. EJECT
  44. SET PRINT OFF
  45. RELEASE ALL
  46. STORE t TO more
  47.